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Preface 


As of this writing, more TIMEX Sinclair 1000 and 
Sinclair ZX-81 computers have been soid than any other 
personal computer in the world. Surely, thal makes ihe 
Sinclair machine the world’s most popular computer! 

The extremely lightweight design and high porabil- 
fiy, with a built-in powerful BASIC language, place the TIS 
4000 and ZX-81 at the forefront of today’s exciting com- 
puler scene. 

Not a toy, the Sinclair hardware and He versatile 
system software make it a highiv useful tool in the 
business environment and classroom as well as for prac- 
ical jobs around ine home. 

in fact, ine system software is so flexible that the 
need for this book was revealed. There are so many com- 
puter tasks which can be accomplished with the T/S 1000 
and ZX-81 thai the first 37 must be presented here. 

Software programs make a computer do work. This 
book, ior newcomers, beginners, novices, student pro- 
gammes and even ciddimers wanting new ideas, is 
designed to be a source of useful programs to make your 
personal computer do work. 

This book is a companion volume to Tû? TIMEX 
1000/Sinciair ZX-81 Programming Tips & Tricks. 

— Edward Page 
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Introduction 


There is a need for practical, useful software for the 
new generation of popular personal computers. This book 
is a collection of 37 useful programs you can type easily 
into your TIMEX/Sinclair 1000 and Sinclair ZX-81 com- 
puter, and run them just as you find them here. 

The T/S 4000 and ZX-81 computers are one and the 
same, except the T/S 1000 has more memory capacity 
than the ZX-81. Both computers can be augmented with 
plug-in extra memory. 

Ali 37 programs in this book have been thoroughiy 
tested and run on the T/S 1000 and the ZX-81. All will run 
in the limited memory space available on the ZX-81. Thus, 
all will run on the T/S 1000, also. All of the programs in 
this book will run on either BASIC computer. 

The T/S 1000 and the ZX-81 are powerful and versatile 
and flexible—but what can they do? Once you own the 
hardware, you need real programs designed to do real 
work. The aim of this book is to provide 37 all-new ready- 
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to-run pieces of complete software you can put to im- 
mediate use. 

The 37 programs in this book can stand alone, or be 
used as parts of larger sets of instructions you might 
write. These are designed to be typed in, just as you find 
them here, with.no other programming needed. 

These programs are useful in themselves. They also 
make good starting points for further development as you 
learn more. and more about how to program your own 
computer. Use these practical programs now and then ex- 
pand them later as your imagination expands. 

This book can be used by novices, student program- 
mers, newcomers, beginners and even old-timers who 
need new ideas. We make the assumption you know. how 
to set up your T/S 1000 or ZX-81 or MicroAce computer. for 
use, You know how to connect the cable between TV 
switchbox and computer. You know how to plug the 
power supply into a wall socket and attach the power cord 
to the computer. You know how to type on the fiat 
keyboard, locate the SHIFT key, and obtain the various 
“levels” of functions on the multiple-function keys. 

if you don’t have these areas of skill down pat, yet, 
check your owner’s manual. The Sinclair ZX-81 manual is 
entitled ZX-87 BASIC Programming. The similar publica- 
tion for the T/S 1000 is the Timex User Manual. Please 
review these books before starting to use the programs in 
this book. 

You do not have to be a programmer to use the soft- 
ware in this book. Just type in the programs, as you find 
them here, and run them. They will work! 


Learning 

You will learn a lot from this book just by typing in 
the programs before running them. Please be careful to 
type each correctly, exactly as you find it here, If a syntax 
error report code, or other report code, appears, go back 
and make sure your type line matches what we have 
printed here. It's easy to make a typo! 

Our program lines are expected to be exactly correct 
as they are printed here. All have been tested on the T/S 
1000 and ZX-81. If, after typing in a line as we have it, you 
get an error report code, check the handy list of error 
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messages in the Appendix at the rear of this book. You 
also will find, in the Appendix, a handy list of BASIC 
words as used in the TIMEX/Sinclair 1000 and Sinclair 
ZX-81. 

lf you get an error message report code, most likely 
you will find you have made a typographical error in typ- 
ing the program into your computer. However, should you 
find a typo which we have made in this book, please let 
the author know. Send a postcard or letter to the author in 
care of ARCsoft Publishers, P.O. Box 132, Woodsboro, 
MD 21798 USA. The author will appreciate being able to 
make necessary corrections to future editions. 


Office, school & home 

This book has three sections and an Appendix. The 
first section includes programs thought of as useful 
around the home. The second section includes pro- 
grams for students and teachers and the third section 
is business oriented. 

Naturally, these sections are not rigidly divided. You 
probably will find something in the business or classroom 
sections applicable to home use. And you probably will 
take several of the home programs to your office or 
classroom. 

Try them ali. They're great fun to run. And they are 
designed especialiy to be short so you won't have to 
spend hours typing one program. 


Report codes 

Sinclair calls its error messages report codes. We 
often refer to them as error messages because that's how 
most programmers know them. Report codes and error 
messages mean the same thing in this book. 

Many of the programs in this book will continue to 
run until you press the BREAK key to command them off. 
You may stop any run, at any time, by pressing the BREAK 
key at the lower righi-hand side of the keyboard. 

The author would like to have your suggestions for 
changes in future editions of this work, or for other books 
in this series for the TIMEX/Sinclair 1000 and Sinciair 
ZX-81. He may be addressed in care of. ARCsoft 
Publishers. 
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RETURN vs. ENTER 

Programmers generally mix the two words, RETURN 
and ENTER, and use them to mean the same thing. In 
either case, when you see RETURN or ENTER in this 
book, we mean the ENTER key on the right-hand side of 
the keyboard. 

These programs will run on any machine program- 
mable in BASIC. However, to run on hardware other than 
the T/S 1000 or ZX-81, you will have to make slight 
modifications to program lines. Graphics commands, 
especially, will differ on non-Sinclair computers. 

Refer to the owner's. manual which came with your 
non-Sinclair computer and compare its version of BASIC 
with the Sinclair BASIC. A list of Sinclair BASIC words 
can be found in the Appendix at the rear of this book. 

Also, if you use a computer other than a T/S 1000 or 
ZX-81, such things as line numbering, logical tests, 
mulliplication symbols, print statements and other in: 
structions may differ. 


REMarks 

As you read through the 37 programs in this book, 
you will find new uses of REM, or remarks in software: 
The author's training in writing BASIC-language computer 
programs included an emphasis on brevity and saving 
memory space. A sharp editing pencil was in order—and 
still is! 

With only one or two kilobytes (ik or 2k) of memory 
available in the ZX-81 or T/S 1000, you need to create lean 
programs. There is no room for fat—and this is good! Pro- 
grammers who have learned on such systems make better 
professionals because they know how to write efficient 
“code.” 

REMarks and explanations in software are out. Hon- 
ing, fine-tuning and waste trimming are in. Use of coding- 
form. program: worksheets, such as the TIMEX 
1000/Sinciair ZX-81 BASIC Coding Form, published by 
ARCsoft Publishers, is encouraged. The objective always 
is to make the most efficient use of available memory. 

And be sure to remember: even though they may be 
headed toward the very same goal, no two programmers 
will write exactly the same list of BASIC instructions, or 
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program lines, from scratch. As you load these 37 pro- 
grams into your computer, one at a time, you may make 
modifications to suit your personal needs and interests. 
For instance, exact wordings of PRINT statements can be 
changed. Or, two or more programs can be combined into 
one grand scheme. Your applications may vary. 

ifyou want to load more than one of these programs 
into your T/S 1000 or ZX-81 at the same time, be sure to 
use different sets of line numbers for differeni programs. 
Two programs cannot occupy the same set of line 
numbers at the same time. 

Good programmingi 


Programs for the home 


Super Slot-0 


Oh, those evil siot machines! They're just popping 
up everywhere. Even inside myTIMEX Computer. 

Like any good slot machine, when you pull the han- 
die it. displays some objects. ifyou get no 
two alike, you lose. if you get two alike among the three 
objects, you win small. if ali three are the same, you win 
big. 

One difference in our Siot-O game, the display is en- 
tirely at random. No one pushes a secret button under the 
table to make certain items pop up. 

The “handie” is the keyboard. To pull“ it, just press 
any key. The display objects are small boxes. If you 
get two alike, the computer tells you that you have won 
$5. If you get three alike, the computer tells you that you 
have won $10. 

Get out your funny-money from that old Monopoly 
game, gather up your friends, and let's have some fun. 


Let's start our Fun-N-Games with instruction 
on how to simulate a slot machine on the screen of your 
TIMEX! 

As with = all the programs in this book, simply 
type this one in and RUN it. The TIMEX T/S 1000 will 
dispiay, on your video screen, the name of this program 
and some simple instructions. 

To simulate pulling the slot machine’s lever arm, 
press any key on the keyboard. 

By the way, be very careful in typing in the program. 

As you key in programs throughout this book, be 
sure you include ali blank spaces where called for. 


Program Listing 


10 PRINT "PLAY SUPER SLOT-O" 
20 FOR L=1 TO 17 

30. PRINT *: 

20 NEXT L 

50 PRINT 

60 GOSUB 800 

70 GOSUB 900 
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RAND 

IF INKEY$="" THEN GOTO 90 

CLS 

GOSUB 500 

LET A=X 

GOSUB 500 

LET B=X 

GOSUB 500 

LET C=X 

IF A=B THEN LET P=1 

IF B=C THEN LET Q=1 

IF C=A THEN LET R=1 

PRINT 

PRINT CHRS A;: ™:CHRS B: "-CHRS C 
IF P+0+R=1 THEN LET S=1 

IF P+Q+R>1 THEN LET T=1 

IF P+0+R<1 THEN LET U=1 

PRINT 

PAUSE 60 

IF S THEN PRINT “TWO OF A KIND" 
IF S THEN PRINT "YOU WIN $5" 

IF T THEN PRINT “THREE OF A KIND" 
IF T THEN PRINT "YOU WIN $10” 

IF U THEN PRINT "SORRY, THERE IS 
NO MATCH" 

IF U THEN PRINT "YOU DO NOT WIN ANY 
MONEY" 

PRINT 

GOTO 20 

LET X=2*RND 

IF X<l THEN GOTO 600 

GOTO 700 

LET X=INT(8*RND) 

IF X<2 THEN GOTO 600 

RETURN 


LET X=INT(133*RND) 

IF X<128 THEN GOTO 700 

RETURN 

PRINT "PRESS ANY KEY TO" 

PRINT "PULL THE SLOT MACHINE HANDLE" 
RETURN 
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Monthiy Loan Payment 


Here's a fast computation of the monthly payment on 
a loan. The amount borrowed, the principle, is stored in 
memory location P. į is the annual interest rate and N is 
the number of payments. | is converted to a monthly in- 
ierest rate and then to a decimal in line 50. 


Program Listing 


10 CLS 

15 LET M=f 

20 PRINT"AMT BORROWED = $"; 

25 INPUT P 

30 PRINT P 

35 PRINT "ANNUAL INTEREST = ": 
40 INPUT I 

45 PRINT I 

50 LET I=(0.01*1)/12 

55 PRINT “NO. OF PAYMENTS n: 
60 INPUT 

65 PRINT N 

70 LET M-P*1/{l-{{1+I1}**{-N}}} 
75 PRINT "MO. PAYMENT = S"-M 
80 IF INKEYS=""THEN GOTO 80 

85 coro 10 


Il 


Sample Run 


AMT BORROWED = $ 
1500 ENTER 

ANNUAL INTEREST % = 
18. ENTER 

NO. OF PAYMENTS = 
24 ENTER 


MO. PAYMENT = 574.886152 


Number Of Days In A Month 


Here's how to use the computer's ability to search 
for data, to create a Q&A. 

How many days are there in a month? it's a tough 
question for grade schoolers and some extra study may be 
in order. Use this program. 

The program has the computer present the number of 
a month andthen askhow many days are in that particular 

month. 

if you enter a correct answer, the computer will say so. 
if you enter an incorrect answer, the computer will say 
your answer was wrong and teli the correct answer. 

The program runs on forever until you press the 
BREAK key. 


Program Listing 


10 DIM D(12) 


300 LET R=INT(13*RND) 

310 IF RCI THEN GOTO 300 

400 PRINT "HOW MANY DAYS IN MONTH “;R 
410 INPUT D 

420 CLS 

430 IF D=D(R) THEN GOTO 600 

500 PRINT “WRONG” 

510 GOTO 610 
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600 PRINT "CORRECT" 

610 PRINT "MONTH “;R;" HAS “;D(R):" DAYS“ 
620 PRINT 

630 GOTO 10 
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High/Low Bowling Score 


Suppose you bowl with a group of friends, each with a 
different score or set of scores? This program accepts their 
scores and sorisoutthe highest and the lowest bowling 
scores. 

Here's how it works: at line 20 the program is 
dimensioned to hold data on 10 persons. Lines 30to 70 
take in the info on each person. 

Naturalty, fhis kind of sorting could be applied to any 
game with ranges of scores among different players. 


Program Listing 


10 CLS 

20 DIM M(10) 

30 FOR L=1 TO 10 

40 PRINT "SCORE: "; 

50 INPUT M(L) 

60 PRINT M(L) 

70 NEXT L 

80 PRINT 

90 PRINT “SORTING" 
100 LET T=Ø 
110 FOR L=1 TO 9 
120 IF M(L)<=M(L+1) THEN GOTO 170 
130 LET E=M(L) 
140 LET M(L)=M(L+1) 
150 LET M(L+1)=E 
160 LET T=1 
170 NEXT L 
180 IF T=1 THEN GOTO 100 
190 CLS 
200 PRINT "SCORES IN ORDER: 
210 FOR L=1 TO 10 
220 PRINT M(L) 
230 NEXT L 
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Random Number 
Quality Checker 


Ever wonder. just how unintentional, haphazard, or 
unrelated your random numbers are? This program rein- 
forces your confidence in the pseudorandom number 
generator in the TIMEX Computer. 

it causes the machine to generate 100 numbers bet- 
ween zero and 100 and reports how many are above 49 and 
how many are below 59. 


Program Listing 


10 LET N=Ø 

15 LET X=Ø 

20 LET Y=Ø 

25 FOR L=1 70 100 

30 LET X=INT(100*RND) 

35 IF X<50 THEN LET Y=Y+1 
40 IF X»49 THEN LET N=N+1 
45 NEXT L 

50 PRINT Y;" BELOW 50" 

55 PRINT N; ABOVE 49" 
60 PRINT 

65. GOTO 10 


Ever wonder how. “random” are the numbers 
generated by the random-number. generator in your 
TIMEX when you use the AND instruction? Try this pro- 
gram. 

it generates 100 random numbers in a range from 
zero to four and counts how many there are of each 
number between zero and four. 

By the way, while it is doing that it will display the 
message “counting” so you can tell it is working. 

At the end of its run, the TIMEX prints a neat chari, 
on the video display, of results. 
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Program Listing 


FOR L=1 TO 100 

PRINT "COUNTING" 

LET N=INT(5*RND) 

IF N=Ø THEN LET A(l)=A(1)+1 
IF N=l THEN LET A(2)=A(2)+1 
IF N=2 THEN LET A(3)=A(3)+l 
IF Nîl THEN LET A(4)=A(4)+1 
IF NA THEN LET A(5)=A(5)+1 
CLS 

NEXT L 

FOR L=l TO 5 

LET TeT+A(L) 

PRINT L-1,A(L) 

NEXT L 

PRINT “TOTAL",T 
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Savings Quickie 


Want a quick idea of how much your savings account 
will grow over the years? This program is fast to load and 
speedy to run. 

The computer will ask for initial savings balance, an- 
‘nual interest percentage rate, and number of years. in 
return, it computes compound interest and displays the 
savings balance at the end of each year in a handy list. 


Program Listing 


10 CLS 

20 LET Z=Ø 

30 PRINT "PRESENT BALANCE: "; 
40 INPUT B 

50 PRINT B 

60 PRINT "INTEREST RATE: "; 
70 INPUT I 

80 PRINT I 

90 PRINT "NUMBER OF YEARS: "; 
100 INPUT Y 

110 PRINT Y 

120 FOR L-1 TO Y 

130 LET Z=Z+1*(Z+B)/100 

140 PRINT L,Z4B 

150 NEXT L 

160 IF INKEY$="" THEN GOTO 160 
170 GOTO 10 


Sample Run 


RUN ENTER 


PRESENT BALANCE: 
652 ENTER 
INTEREST RATE: 

8 ENTER 
NUMBER OF YEARS: 
ll ENTER 
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bel BA 


704.16 
760.4928 
821.33223 
887.0388 
358.00191 
1034.6421 
1117.41.34 
1206.8065 
1303.351 
1407.6191 
1520.2286 


Draw Straws 


Drawing straws is one of man’s oldest decision makers. 
Several straws are broken off to various lengths. The 
length of all straws is concealed and each person draws a 
straw. The person drawing the shortest straw “wins.” 
That is, he is selected by the luck of the draw. 

Now your TIMEX Computer can provide a fast and easy 
drawing where no straws are available. It does all the work 
for you by electronically assigning straw lengths. You can 
decide beforehand whether longest straw or shortest 
straw wins. 

The program is set up for eight persons to draw. The 
computer first asks their names. Then it secretly makes a 
random number assignment io each. That number feeds 
the computer graphics which display the straw lengths. 


Program Listing 


10 RAND 
20 DIM S(8) 
30 DIM NS(8,10) 
100 FOR P=1 TO 8 
110 PRINT “NAME OF PLAYER" 
120 PRINT "NUMBER OF “;p;" 2” 
130 INPUT NS(P) 
140 LET S(P)=20*RND 
150 CLS 
160 NEXT P 
200 FOR P=1 TO 8 
210 PRINT NS(P); 
220 FOR L=# TO S(P) 
230 PRINT CHRS 128; 
240 NEXT L 


300 IF INKEY$="" THEN GOTO 300 
310 CLS 
320 GOTO 10 


Funny similes 


Give these newfangled gadgets an inch and they'il 
take a mile. in the case of the computer, give it some 
tacky retorts and it will spew out an endless string of 
dumb remarks. 

The fun is in having the computer randomiy select 
various words and combine them to make silly sayings. In 
this program, the stupidities are stored via lines 100 
to 290. 

The random number is used to match the words into 
similes. 


Program Listing 


10 RAND 

20 DIM MS(10,5) 

30 DIM N$(10,6) 

100 LET MS(1)="FAT” 
110 LET M$(2)="DIRTY" 
120 LET MS(3)="BAD" 
130 LET MS{4}="SAD" 
140 LET MS(5)="GREEN” 
150 LET MS(6)="UGLY” 
160 LET M$S(7)-'DULL' 
170 LET M$(8)="TACKY" 
180 LET M$(9)="WEAK" 
190 LET M$(10)="DUMB" 
200 LET NS(1)="TREE” 
210 LET NS(2)="PIG" 
220 LET N$(3)="TURKEY" 
230 LET NS(4)="DOG" 
240 LET NS(5)="ROOKIE" 
250 LET NS(6)="SIN" 
260 LET NS(7)="PLUG" 
270 LET N$(8)="BULL" 
280 LET NS(9)="WORM” 
290 LET N$(10)="0X" 
300 PRINT “WHOM ARE WE DESCRIBING?" 
310 INPUT BS 

320 CLS 
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330 LET TRINTill“RND) 

340 IF T<l THEN GOTO 330 

350 PRINT BS; IS ";MS(T);" AS A ";NS(T) 
360 PRINT 

370 GOTO 330 
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Car Payments 


Shopping for a new car? Use your TIMEX T/S 
1000 Computer to compute quickly the potential 
monthiy car payment on various models. 

imagine you want an $8000 car and are prepared to put 
up $1000 against the purchase. You want to arrange to 
finance the car for 36 months. You know the current annual 
interest rate on car loans is 15 percent. 

Key in those few numbers and the computer instantiy 
telis you the car payment will be $242.66 per month. 


Program Listing 


10 LET p=g 

20 PRINT “CAR PAYMENT” 

30 FOR L=1 TO 11 

40 PRINT * 

50 NEXT L 

60 PRINT 
100 PRINT "PURCHASE PRICE 2 
110 INPUT T 
120 CLS 
130 PRINT “DOWN PAYMENT >" 
140 INPUT R 
150 CLS 
160 PRINT “NUMBER OF MONTHS 2“ 
170 INPUT N 

180 CLS 
190 PRINT "ANNUAL INTEREST 2” 
200 INPUT I 
210 LET I=(0.01*1)/12 
220 CLS 
230 LET P= (T-R)*1/(1-1/(14+1)**8) 
240 LET P=INT(100*p+.5)/100 
250 PRINT "PAYMENT WILL BE" 
260 PRINT “S“:P;" A MONTH” 
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Sample Run 


* * * & & * be & N de K Å 
CAR PAYMENT 


PURCHASE PRICE $ 
8000 

DOWN PAYMENT $ ? 
1000 

NUMBER OF MONTHS 
36 

MONTHLY INTEREST 
15/12 


PAYMENT: $ 242.66 
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Shopper's Friend 


Take your computer along the next time you go 
shoppingi 

This program finds the computer asking for certain 
information and then telling you which product brand name 
is the best buy. 

The computer wil ask for the brand name of a product, 
the quantity in the product package, and the price of the 
package. Then it will ask for the name, quantity and price 
for a second produci. 

Alter digesting all this information, it will fell you the 
brand name of the best-buy product and show you ihe unit 
prices for both brand names so you can agree with the 
computers judgment, 

For example, suppose you were looking at com Takes 
in boxes, one by Post and one by Kellogg. Suppose the Post 
box contained 24 ounces of flakes and was priced on the 
grocery shelf at $1.98 while the Kellogg box held 18 ounces 
and was priced al $1.59. Which would be the better buy 
based on unit price per ounce of fiakes? 

Run the data through your TIMEX and youll find it 
computes the Post com fiakes ta be the best buy with a unit 
price of 8€ va. the Kellogg unit price of 2€ 

After completing the computation, ihe computer asks 
for a yes or no answer. Do you have more to be computed? 

By the way, if the unit prices turn out io be equal, the 
computer will say they are equal. if you want no further 
computations, it will say thanks and qulî. 


Program Listing 


10 PRINT “SHOPPERS FRIEND" 
20 FOR L=1 TO 15 


100 PRINT “FIRST BRAND NAME:' 
110 INPUT XS 
120 PRINT XS 
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130 PRINT "QUANTITY: “; 

140 INPUT M 

150 PRINT M 

160 PRINT “PRICE: $"; 

170 INPUT N 

180 PRINT N 

200 PRINT “SECOND BRAND NAME: 
210 INPUT Y$ 

220 PRINT Y$ 

230 PRINT “QUANTITY: "; 

240 INPUT O 

250 PRINT 0 

260 PRINT "PRICE: '; 

270 INPUT R 

280 PRINT R 

300 IF N/M=R/Q THEN GOTO 600 
310 IF N/M<R/O THEN GOTO 400 
320 PRINT Y$;" IS BEST BUY" 
330 GOTO 500 

400 PRINT X$;' IS BEST BUY” 
500 PRINT X$;" UNIT = $";N/M 
510 PRINT YS; UNIT = $";R/Q 
520 PRINT 

530. STOP 

600 PRINT XS: = ";Y$ 

610 GOTO 500 


Sample Run 
SHOPPERS FRIEND 


FIRST BRAND NAME ? 
POST 
QUANTITY ? 


SECOND BRAND NAME 
KELLOGS 

QUANTITY ? 

18 

PRICE ? 

1.59 


POST IS BEST BUY 
POST UNIT=$0.08 
KELLOGS UNIT=$0.09 


FIRST BRAND NAME 7 
BLACKS 

QUANTITY ? 

108 


SECOND BRAND NAME 
WHITES 

QUANTITY ? 

50 

PRICE ? 

12.5 


BLACKS = WHITES 
BLACKS UNIT=$0.25 
WHITES UNIT=50.25 
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Programs for the 
classroom 


Foreign Capitals 


Here's a learning quiz we'l! bet you haven't seen 
anywhere else. This program tests your knowledge of 
foreign countries. The more you play, the more you learn! 

You must tel! the computer the correct name of the 
capital of the country it presents. And you must spell the 
name ci that city correctiv. 

What is the capital of Egypt, Poland, Turkey, New 
Zealand, Bolivia or Afghanistan? li can be very tough! 

Want to change to diferent countries? Grange 
lines 100 to 190. 


Program Listing 


10 RAND 

20 DIM C$(5,11) 

30 DIM TS(5,6) 

100 LET C$(l)="AFGHANISTAN" 
110 LET T$(1)="KABUL* 

120 LET CS(2)="BOLIVIA" 

130 LET TS(2)="LA PAZ" 

140 LET C$(3)="EGYPT" 

150 LET TS(3)="CAIRO” 

160 LET C$(4)="POLAND" 

170 LET TS$(4)="WARSAW" 

180 LET CS(5)="TURKEY" 

190 LET TS(5)="ANKARA” 

200 LET R=-INTiG“RND) 

210 IF RCI THEN SOTO 200 
300 PRINT "COUNTRY: “;C$(R) 
310 PRINT “CAPITAL?” 

320 INPUT AS 

330 IP AS ="" THEN GOTO 320 
348 LET L=LEN AS 

350 CLS 

360 IF AS-TS(R,1 TO L) THEN GOTO 500 
400 PRINT “WRONG” 
410 GOTO 510 

500 PRINT "CORRECT" 

510 PRINT "COUNTRY: ":CS{R)} 


520 PRINT “CAPITAL: 
530 PRINT 
540 GOTO 10 
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":TS{R) 


Areas 


Circle. Ellipse. Parabola. Sphere. Square. Rectangle. 


Triangle. Name your shape. This program will compute its 
area. Surface area in the case of the sphere. Answer the 
computer's questions and it will give you the answer you 
need, in square units of measure. If you use inches, the 
answer will be in square inches. Put in yards and get 
square yards. Meters, get square meters. Please don't mix 
units in any one computation. 


Program Listing 


PRINT “SHAPE?” 
INPUT X$ 

CLS 

PRINT X$ 


IF X$="CIRCLE" OR X$="SPHERE” THEN 


GOTO 200 


IF X$="PARABOLA" OR X$="TRIANGLE" 


THEN GOTO 300 
IF XS="SOUARE" OR X$="RECTANGLE" 
THEN GOTO 400 


IF X$="ELLIPSE" THEN GOTO 500 
GOTO 100 

PRINT "RADIUS "; 

INPUT R 

PRINT R 

LET A=PI*(R**2) 

IF X$(1)="5" THEN LET A=4*A 
GOTO 600 

PRINT "BASE "; 

INPUT B 

PRINT B 

PRINT “HEIGHTH "; 

INPUT H 

PRINT H 

IF X$(1)="P" THEN LET A=B*H*2/3 
IF X$(1)="T" THEN LET A=B*H*.5 
GOTO 600 
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400 PRINT "WIDTH '; 

410 INPUT W 

420 PRINT W 

430 PRINT "LENGTH *; 

440 INPUT L 

450 PRINT L 

460 LET A=L*W 

470 GOTO 600 

500 PRINT "MAJOR AXIS '; 
510 INPUT J 

520 PRINT J 

530 PRINT "MINOR AXIS "; 
540 INPUT N 

550 PRINT N 

560 LET A=.7854*J*N 

600 PRINT "AREA AA 

610 PRINT 

620 GOTO 100 


Sample Run 


SHAPE 

TRIANGLE ENTER 
BASE 

55 ENTER 
HEIGHTH 

22 ENTER 

AREA 605 


SHAPE 

SPHERE ENTER 
RADIUS 

49 ENTER 

AREA 30171,85 
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SHAPE 

ELLIPSE ENTER 
MAJOR AXIS 

19 ENTER 

MINOR AXIS 

14 ENTER 

AREA 208.9164 


SHAPE 

PARABOLA ENTER 
BASE 

71 ENTER 
HEIGHTH 

99 ENTER 

AREA 4686 
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Photography: Flash Exposure 


Use your computer lo help take better pictures! 


The most important factor in pictures shot with flash is 
the distance from your flash to the subject. Subjects 
which are close to you will receive a lot of ight while sub- 
jects farther away will receive less light. 


Check your data sheet for the film you are using. Look 
for the film guide number. Next, make an estimate of the 
distance in feet from the flash to your subject. 


This program determines ihe proper fistop setting for 
your camera, By ine way, Tihe computer tells you to use 
an fistop setting between two finumbers avaliable on your 
camera, sel your lens opening al ine nearest number or 
halfway between the two, whichever is closest. 


For example, suppose your film has a quide number of 
88 and you estimate the fiasħ-is-subieci distance at iš 
feet. Use #8 on your lens. 


Program Listing 


16 PRINT "FLASH EXPOSURE” 

28 PRINT AXA RAA TAX 

30 PRINT “FILM GUIDE NUMBER: ': 
28 INPUT G 

50 PRINT G 

60 PRINT “FLASH-SUBJECT DISTANCE: *; 
76 INPUT B 

80 PRINT B: FEET" 

50 LET F=G/D 
100 PRINT "SHOOT AT F/”;F 

110 IF INKEYS ="" THEN GOTO 110 


Li 


Sample Run 


FLASH EXPOSURE 
* * * K * K K * * 4 * * K K 


FILM GUIDE NUMBER: 


80 ENTER 
FLASH-SUBJECT DISTANCE: 
10 ENTER 


SHOOT AT F/8 
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Photography: Close Ups 


For copying and other close-up work with your camera, 
you extend the camera lens by using bellows or extension 
tubes. In doing that, you must allow for an effective in- 
crease in the normal number or your picture will be 
underexposed. 

You make such an exposure compensation whenever 
the subject distance is less than eight times the focal 
length of your lens. 

This program provides a convenient means of determin- 
ing the effective finumber. For example, if the focal 
length of your camera is 50mm and the lens-to-film 
distance (focal length plus extension from infinity posi- 
tion) is 100mm, and the normal stop would be 22, the 
corrected stop would be f/IT. 

Or, if you are using a 25mm lens, with 50mm lens-to- 
film distance, a normal fistop of 8 should be corrected to 
fi4. Be sure to keep both focal length and distance in 
either mm or inches. Don’t mix apples and oranges. 


Program Listing 


10 PRINT "CLOSE UPS" 
20 PRINT “kèktkktikan 
30 PRINT "NORMAL F/ NUMBER: "; 
40 INPUT F 
50 PRINT F 
60 PRINT “LENS-FILM DISTANCE: '; 
70 INPUT D 
80 IF D=# THEN GOTO 70 
90 PRINT D 
100 PRINT "LENS FOCAL LENGTH: " 
110 INPUT L 
120 PRINT L 
130 LET N=F*L/D 
140 PRINT "EFFECTIVE F/NUMBER IS F/":N 
150 FOR Z=1 TO 8 
160 PRINT 
170 NEXT Z 
180 PRINT FOR MORE, PRESS ANY KEY" 


og 


190 IF INKEYS="" THEN GOTO 190 


200 CLS 
210 GOTO LO 


Sampie Run 


CLOSE UPS 


* * * * * * * * * 


NORMAL F/ NUMBER: 
22 ENTER 
LENS-FILM DISTANCE: 
100 ENTER 

LENS FOCAL LENGTH: 
50 ENTER 


EFFECTIVE F/NUMBER IS F/11 


POR MORE, PRESS ANY KEY 


49 


Math Flasher 


Flash cards for memorizing and practicing math pro- 
blems have been around since Grandpa was a boy. They 
used to be printed cards which you manually displayed to 
the testee. Now, the computer does the job and ali you 
have to do is sit by and watch. 

With this program, you select addition, subtraction, 
multiplication or division. The computer randomly selects 
a pair of numbers and creates the necessary math pro- 
blem. 

We assume it is desirable to not have negative numbers 
as results of subtraction. We want subtraction problems 
which result in answers.of zero, one, two and higher. 
None below zero such as -1, -2, -3 or lower. The program 
will present only pairs of numbers which result in the 
desired values. 

Also, in division, we want whole-number answers like 2, 
11 or 26. Not 1.81, 9.7, or 21.334. The program controls for 
the desired answers. 


Program Listing 


10 PRINT "ADDITION" 

20 FOR L-1 TO 8 

30 PRINT "*": 

40 NEXT L 

50 PRINT 

60 PRINT 
100 LET P=INT(10*RND) 
110 LET O=INT(10*RND) 
200 PRINT Pz" PLUS ":0 

210 INPUT R 
220 CLS 

300 IF R=P+Q THEN GOTO 400 
310 PRINT "WRONG" 

320 GOTO 410 
400 PRINT "CORRECT" 
410 PRINT P;" PLUS ":0;" = ";P+Q 
500 PRINT 
510 PRINT 
520 GoTo 10 


Program Listing 


510 
520 


PRINT "SUBTRACTION" 
FOR L=i TO ll 
PRINT ">*=; 


PRINT 

LET P=INT(10*RND) 

LET O=INT(10*RND) 

IF P-Q<# THEN GOTO 100 

PRINT “SUBTRACT “;Q;" FROM ";P 
INPUT R 

CLS 

IF R-P-Q THEN GOTO 400 

PRINT “WRONG” 

GOTO 410 

PRINT "CORRECT" 

PRINT P;' MINUS ";0;" = ";P-Q 
PRINT 

PRINT 

GOTO 10 


Program Listing 


PRINT “MULTIPLICATION” 

FOR Lel TO 14 

PRINT TAS. 

NEXT L 

PRINT 

BRINT 

LET P<INT(1O*RND) 

LET O=INF(IO*RND) 

PRINT "MULTIPLY ":P;" TIMES *:0 
INPUT R 

CLS 

IP R=P*0 THEN GOTO 400 

PRINT "WRONG" 

GOTO 410 

PRINT "CORRECT? 

PRINT P: TIMES *:0:" = *:p*0 
PRINT 
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510 PRINT 
526 GOTO 10 


Program Listing 


16 PRINT “DIVISION” 
20 FOR L=1 TO 8 


60 PRINT 

100 LET P-INT(10*RND) 

110 LET Q-INT(10*RND) 

120 IF 0<1 THEN GOTO 110 

130 IF P/Q <> INT(P/Q) THEN GOTO 100 
200 PRINT "DIVIDE ";P;" BY ";0 

210 INPUT R 

220 CLS 

300 IF R=P/O THEN GOTO 409 

310 PRINT “WRONG” 

320 GOTO 410 

400 PRINT “CORRECT” 

410 PRINT P;" DIVIDED BY “:0;" = "P/Q 
500 PRINT 

518 PRINT 

520 GOTO 10 


Advanced Math Flasher 


Similar to the previous Math Flasher program, this ver 
sion permils negative numbers and decimal answers. 

Deleting lines 120 and 130 from the easier Fiasher pro- 
gram allows occasional negative numbers to result from 
subtraction problems and fractional decimali numbers to 
result from division. 

Watch cut! You may have to resort to the old-fashioned 
pencil-and-paper method of calculating answers lo this 
program. 
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Program Listing 


PRINT "ADDITION" 
FOR L-1 TO 6 


PRINT 

LET P=INTIILGO*ERND) 

LET Q=INT(100*RND) 

PRINT "ADD “:p:;* PLUS ':0 
INPUT E 

CLS 

IP B=P+0 THEN GOTO 400 
PRINT "WRONG" 

GOTO 410 

PRINT “CORRECT” 

PRIST P:* PLUS "Or" = *:P+0 
PRINT 

PRINT 

Goro 10 


Program Listing 


PRINT "SUBTRACTION" 
FOR I=i To 11 
PRINT ***; 


PRINT 

LEP PE 

LET GeINT{100*END} 

PRINT “SUBTRACT *:0;" PROM *:P 
INPUT R 

CLS 

iF R=-P-O THEN GOTO 400 

PRINT "WRONG" 

GOTO 410 

PRINT “CORRECT” 

PRINT Ps" MINUS *:G:" = “¿PO 
PRINT 
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510 
520 


PRINT 
GOTO 10 


Program Listing 


PRINT 'MULTIPLICATION' 

FOR L-1 TO 14 

PRINT "am. 

NEXT L 

PRINT 

PRINT 

LET P=INT(100*RND) 

LET Q=INT(100*RND) 

PRINT "MULTIPLY ":P:" TIMES ":0 
INPUT R 

CLS 

IF R=P*Q THEN GOTO 400 

PRINT "WRONG" 

GOTO 410 

PRINT "CORRECT" 

PRINT P;" TIMES ":0;" = ";p*Q 
PRINT 

PRINT 

GOTO 10 


Program Listing 


PRINT "DIVISION" 

FOR L=1 TO 8 

PRINT * 

NEXT L 

PRINT 

PRINT 

LET P=INT(100*RND) 

LET Q=INT(100*RND) 

IF Q=# THEN GOTO 110 
PRINT "DIVIDE ";P;" BY 0 
INPUT R 

CLS 

IF R=P/Q THEN GOTO 400 


310 PRINT “WRONG” 

320 coro 410 

400 PRINT “CORRECT” 

410 PRINT P;" DIVIDED BY ";Q;" = ";P/0 
500 PRINT 

510 PRINT 

520 GOTO 10 
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Exam Score Sorting 


The final number scores of a large number of test 
results can be categorized and thereby out down into a 
smaller quantity of numbers easily. 

This program accepts exam scores and divides them 
into ranges we have labeled A, B, C, D and F. The program 
looks for test scores in a range of zero to 100. The predeter- 
mined grade ranges are F=0 to 59; D=60 to 69: C=70 to 79; 
B-80 to 89; and A=90 to 100. 

You key in the letter X to break the entry. cycle. Lines 
160 to 140 sort the scores into letter grades A through F. 
Lines 150 to 170 sort highest and lowest scores. 


Program Listing 


10 GOSUB 400 

20 PRINT "SCORE=" 

30 INPUT GS 

40 CLS 

50 IF GSN THEN GOTO 200 

60 LET G=VAL GS 

70 LET ENI 

100 IF G<60 THEN LET F=F+1 

110 IF G»59 AND G<70 THEN LET D=D+1 
120 IF G>69 AND G«80 THEN LET C=C+1 
130 IF G>79 AND G<90 THEN LET B=B+1 
140 IF G>89 THEN LET A=A+1 

150 IF N=1 THEN LET L-G 

155 IF NI THEN LET H=G 

160 IF G<L THEN LET L=G 
170 IF G>H THEN LET H=G 

180 GOTO 20 

200 PRINT "TOTAL N:; SCORES” 

210 PRINT “FROM ":L:" TO “:3H 

220 PRINT "A",A 

230 PRINT "B",B 

240 PRINT C 

250 PRINT *D",D 

260 PRINT "F",F 

272 STOP 


400 
410 
420 
430 
440 
450 
460 
470 
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Astronomy 
Lightyears/Distance Conversions 


Starlight, 
Starbright, 

I wish | may, 

I wish | might, 
Know the distance 
To your light. 


For students of astronomy everywhere, here's how to 
piug your computer into your hobby: use the machine to 
discover distances across the Universe! 

This program converts lightyears to kilometers or 
kilometers to lightyears or lightyears to miles or miles to 
lightyears. it’s hard to visualize distances in lightyears. 
Run this program and you'll be better able to grasp the 
vast expanse of the Cosmos with your mind. 

Of course, all distances are approximate. We use 
365.86 days per year and, thus, 9.4830912x10'Žkm/ly ar 
5.892792872x10'?mi/ly. 


Program Listing 


10 CLEAR 

20 LET M=Ø 

30 LET K=f 

40 PRINT "CONVERSIONS" 

50 FOR P=1 TO ll 

60 PRINT * 

70 NEXT P 

80 PRINT 

90 PRINT "1/LTYRS TO MILES” 
100 PRINT "2/KM TO LTYRS" 
110 PRINT “3/MILES TO LTYRS" 
120 LET C$=INKEYS 

130 IF C$="" THEN GOTO 120 
140 IF C$>"1" THEN GOTO 400 
300 CLS 
310 PRINT "LTYRS: "; 


320 INPUT L 

330 PRINT L 

340 LET K=L*(9.4830912*19**12) 
350 LET M=L*(5.892792872*10**12) 
360 PRINT “KM: ";E 

370 PRINT "MILES: "M 

380 coro 550 

400 CLS 

410 IF c$="3" THEN GOTO 500 

420 PRINT “KM: *; 

430 INPUT E 

440 PRINT K 

450 LET L-E/19.4830912*(10**12)3) 
460 GOTO 548 

500 PRINT "MILES: ': 

510 INPUT M 

520 PRINT M 

530 LET 1-M/15.892792872*110**12)) 
540 PRINT “LTYES: 21 

550 PRINT 

560 Goro 15 


Sample Run 


CONVERSIONS 
kEEREEEEEEE 


1/LTYRS TO MILES 
2/KM TO LTYRS 
3/MILES TO LTYRS 


1 


LEYRS: 
ä ENTER 


KM: 3.7932365 E+13 
MILES: 2.3571172 E+13 
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CONVERSIONS 
Akkkkkkkkkk 


1/LTYRS TO MILES 
2/KM TO LTYRS 
3/MILES TO LTYRS 


2 

KM: 

150000 ENTER 
LYYRS: 1.5817627 E-8 
CONVERSIONS 


* * * * * * 2 2 2 * * 


1/LTYRS TO MILES 
2/KM TO LTYRS 
3/MILES TO LTYRS 


3 


MILES: 
150000 


LTYRS: 


60 


ENTER 
2.5454823 E-8 


State Geographic Centers 


This mind bender tests your knowledge of 
geographic locations of cities and towns in the United 
States. These are special places since, in each case, they 
are the town nearest to the geographic center ofits state. 

in other words, Columbus happens to be almost ex- 
actiy in the center of Ohio. But which state has Challis at 
its center? Or Lewistown? Or Oklahoma City? (Well, some 
may be obvious!) 

You not only learn a lot from running this program 
but you have a barrel of fun. Talk about trivia! 

You can change the names. Here's a variety We 
bet you haven't seen anywhere else. 


CLANTON, ALABAMA 

MT. MCKINLEY,ALASKA 
PRESCOTT, ARIZONA 
LITTLE ROCK, ARKANSAS 
MADERA, CALIFORNIA 
PIKES PEAK,COLORADO 
EAST BERLIN, CONNECTICUT 
DOVER, DELAWARE 
BROOKSVILLE,FLORIDA 
MACON, GEORGIA 

MAUI ISLAND, HAWAII 
CHALLIS, IDAHO 
SPRINGFIELD, ILLINOIS 
INDIANAPOLIS, INDIANA 
AMES, IOWA 

CREAT BEND,KANSAS 
LEBANON, KENTUCKY 
MARKSVILLE, LOUISIANA 
DOVER-FOXCROFT, MAINE 
DAVIDSONVILLE, MARYLAND 
WORCESTER, MASSACHUSETTS 
CADILLAC, MICHIGAN 
BRAINERD, MINNESOTA 
CARTHAGE, MISSISSIPPI 
JEFFERSON CITY,MISSOURI 
LEWISTOWN, MONTANA 
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BROKEN BOW, NEBRASKA 
AUSTIN, NEVADA 
ASHLAND, NEW HAMPSHIRE 
TRENTON, NEW JERSEY 
WILLARD,NEW MEXICO 
ONEIDA, NEW YORK 
SANFORD, NORTH CAROLINA 
MCCLUSKY, NORTH DAKOTA 
COLUMBUS, OHTO 

OKLAHOMA CITY, OKLAHOMA 
PRINEVILLE, OREGON 
BELLEFONTE, PENNSYLVANIA 
CROMPTON, RHODE ISLAND 
COLUMBIA,SOUTH CAROLINA 
PIERRE, SOUTH DAKOTA 
MURFREESBORO, TENNESSEE 
BRADY, TEXAS 

MANTI,UTAH 

ROXBURY, VERMONT 
BUCKINGHAM, VIRGINIA 
WENATCHEE, WASHINGTON 
SUTTON, WEST VIRGINIA 
MARSHFIELD, WISCONSIN 
LANDER, WYOMING 


Program Listing 


RAND 
DIM 5$(5,7) 

DIM G$(5,8) 

LET S$(1)="ALABAMA" 
LET G$(1)="CLANTON" 
LET S$(2)="IOWA" 

LET G$(2)="AMES" 

LET S$(3)="NEVADA" 
LET G$(3)="AUSTIN" 
LET S$(4)="TEXAS" 
LET G$(4)="BRADY" 
LET S$(5)="UTAH" 

LET G$(5)="MANTI" 
LET R=INT(6*RND) 

IF R«l THEN GOTO 200 


PRINT "WHAT STATE HAS ITS" 

PRINT "CENTER NEAR ";GS(R) 

INPUT AS 

LET L=LEN AS 

CLS 

IF AS=SS(R,1 TO L) THEN GOTO 500 
PRINT “WRONG” 


PRINT “STATE: ';SS(R) 
PRINT “CENTER: *;GS(R) 
PRINT 

CLEAR 

coro 10 
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Volumes 


Cones. Cubes. Cylinders. Prisms. Pyramids. 
Spheres. Name your object. This program computes the 
volume and displays it in cubic units, 

Put in inches, get cubic inches. Put in feet, get cubic 
feet. Yards, get cubic yards. No mixing units in any one 
calculation. Cylinder is right circular. 


Program Listing 


10 CLEAR 

100 PRINT "OBJECT: * = 

110 INPUT X$ 

120 PRINT X5 

130 IF X$="CONE" OR X$="DPYRAMID" OR XS= 
"PRISM" THEN GOTO 200 

140 IF X$="CUBE" THEN GOTO 300 

150 IF X$="CYLINDER" THEN GOTO 406 

160 IF X$="SPHERE" THEN GOTO 500 

170 coro 150 

200 PRINT "AREA: "r: 

210 INPUT A 

220 PRINT A 

230 PRINT “HEIGHTH: "e 

240 INPUT EH 

250 PRINT E 

260 LET V=A*H 

270 IF X$="CONE" OR X$="PYRAMID" THEN 
LET v=V/3 

280 GOTO 600 

300 PRINT "LENGTH: Fe 

305 INPUT L 

310 PRINT L 

315 PRINT "WIDTH: "> 

320 INPUT W 

325 PRINT W 

330 PRINT “HEIGHTH: >: 

335 INPUT H 

340 PRINT H 

345 LET V=L*w*H 


350 GOTO 600 

400 PRINT "RADIUS: *; 

410 INPUT R 

420 PRINT R 

430 PRINT “HEIGHTH: "; 
440 INPUT H 

450 PRINT H 

460 LET V=2*PI*R*H 

470 GOTO 600 

500 PRINT "RADIUS: "; 

510 INPUT R 

520 PRINT R 

530 LET V=(4*PI*(R**3))/3 
600 PRINT "VOLUME: ";v 
610 PRINT 

620 PRINT 

630 PRINT "PRESS A KEY" 
640 IF INKEYS="" THEN GOTO 640 
650 CLS 

660 GOTO 10 


Sample Run 


OBJECT: 

CONE ENTER 
AREA 

55 ENTER 
HEIGHTH 

66 ENTER 
VOLUME 1210 


ENTER 

OBJECT: 

CYLINDER ENTER 
RADIUS 

29 ENTER 

HEIGHTH 

15 ENTER 

VOLUME 2733.1856 


ENTER 

OBJECT: 

SPHERE ENTER 
RADIUS 

23 ENTER 

VOLUME 50965.01 


ENTER 

OBJECT: 

PRISM ENTER 
AREA 

Z1 ENTER 
HEIGHTH 

18 ENTER 
VOLUME 1278 


ENTER 

OBJECT: 

CUBE ENTER 
LENGTH 

13 ENTER 
WIDTH 

8 ENTER 
HEIGHTH 

zt ENTER 
VOLUME 2496 


Event Timer 


Piace your computer in a corner and let ittime your next 
chess maich. Three-minute egg. Final exam. 

The computer asks how many minutes you want for the 
event you are timing, andthenit notes whenthetime has 
passed. 

You can calibrate the ciock by changingihevalueof P 
in ine 10. A larger number will slow down the clock. A 
smaller value for P will speed up the clock. As you can see 
we have started with a P value of 18. That works just 
about right on our TIMEX T/S 1000, but it is not necessarily 
right for your machine. 

If you want to time an event of less than one minute, use 
a decimal. For instance, when you want to time a 30-second 
event, respond to the computers inquiry with .5 or for 45 
seconds key in .75. Use .17 for 10 seconds; .25 for 15 
seconds. 


Program Listing 


10 LET P-16 

20 LET C= 

30 PRINT "EVENT TIMER” 

40 FOR L=1 TO il 

50 PRINT fè"; 

60 NEXT L 

70 PRINT 

8G PRINT “HOW MANY MINUTES?” 
36 INPUT T 

100 CLS 


110 PRINT "PRESS ANY KEY TO START TIMING” 


120 IF INKEYS="" THEN GOTO 120 

130 CLS 

140 LET C=C+1 

150 IF C>60*T THEN GOTO 300 

160 LET M=INT(C/60) 

170 LET S=INT(C-(60*M)) 

180 PRINT M; MINUTES ';S;' SECONDS” 
190 FOR L=1 TO P 

200 NEXT L 

210 GOTO 130 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


68 


CLS 

PRINT "TIME IS UP" 

PRINT T;" MINUTES HAVE PASSED" 

FOR L=l TO 8 

PRINT 

NEXT L 

PRINT "TO TIME AGAIN, PRESS ANY KEY" 
IF INKEYS="" THEN GOTO 370 

CLEAR 

GOTO 10 


Class Roll Sorter 


Here's a simple sorting routne which you can use to 
keep your class roll in order. Suppose is ihe first day of 
ciasses and you have been handed an unorganized lisi of 
student names. Merely key those names into the com- 
puter and it will use this "bubble sori” program to pul ihe 
list in alphabetical order. As set up, ii accepts up lo 20 
names. 


Program Listing 


CLEAR 

DIM MS(20,6) 

PRINT “NAME?” 

FOR L=1 TO 20 

INPUT MS(L) 

IF MS(L)(1)="X" THEN GOTO 80 
NEXT L 

CLS 

LET T= 

FOR L=1 TO 19 

PRINT “SORTING” 

IF MS(L)<=MS (141) THEN GOTO 170 
LET ES=MS(L) 

LET MS(L)=MS(L+1) 
LET MS(14+1)=ES 

LET T=1 

CLS 

NEXT L 

IF T=1 THEN GOTO 90 
CLS 

PRINT “CLASS ROLL:“ 
FOR L-1 TO 20 
PRINT MS(L) 

NEXT L 
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Programs for the 
business person 


Marketing Performance 


Ever stared at a page of numbers for hours without 
really seeing their relationships? Well, that doesn't have 
to happen when you put those numbers on a visual 
display—a graph. 

This program is set up to take in data on each of 8 
quarters and then display that data ona graph 
on your computer's video display. 

The graph has 22 available positions from left to 
right. We have labeled those as x7000. You could make it 
dollars or millions or whatever you need. 

Anyway you cut it, it's a short, easy-to-type-in pro- 
gram which can give you a quick look at how marketing 
performance in one quarter-year relates to marketing per- 
formance in other quarter years. 


Program Listing 


10 CLEAR 

20 DIM N(8) 

100 FOR P=1 TO 8 

110 PRINT "DATA FOR QUARTER NUMBER * 
Pz” 2° 

120 INPUT N(P) 

139 IF N(P)»22 THEN GOTO 120 

140 CLS 

150 NEXT P 

200 FOR P=1 TO 8 

210 PRINT "ORTR ";P; 

220 FOR L=Ø TO N(P)-1 

230 PRINT CHRS 128; 


280 PRINTO 

290 PRINT TAB 10;"X 1000” 

300 IF INKEYS="" THEN GOTO 300 
310 CLS 

320 GOTO 10 
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Daily Codes 


Businesses everywhere are concerned about security. 
Banks, credit managers, warehousemen, shipping cierks, 
office managers, retail storekeepers, all need private daily 
codes for internal use to prevent unauthorized admission 
to private flies, storage areas, financial records. 

Now you can use your computer to generate a weekly 
set of codes for each day. If you feel insecure about a 
weeks list in use, the computer will give you a new set of 
code numbers in a fiash. 

The computer generales a table of randomiy-selected 
codes for seven days al a time. 


Program Listing 


10 GOSUB 300 


100 PRINT "SUNDAY: "C 
110 GOSUB 300 
120 PRINT “MONDAY: "ge 


130 GOSUB 300 

140 PRINT "TUESDAY: "C 
150 GOSUB 300 

160 PRINT "WEDNESDAY: 20 
170 GOSUB 300 

180 PRINT "THURSDAY: “;C 
190 GOSUB 300 

200 PRINT "FRIDAY: "C 
210 GOSUB 300 

220 PRINT "SATURDAY: “;C 
230 STOP 

300 LET C=INT(10000*RND) 
310 IF C<1000 THEN GOTO 300 
320 RETURN 
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Invoice Computer 


There's a lot of repetitious math work to be done before 
you mail invoices to your customers. This software has 
the computer collect a few pertinent bits of data from you 
and then present ali the various totals you need to plug in- 
to an invoice. 

it gives you a total retail price for all goods sold on the 
invoice, total sales tax if applicable, shipping charges and 
the grand total amount due you from your customer. 


Program Listing 


10 PRINT "QUANTITY SOLD: "; 

20 INPUT Q 

30 PRINT Q 

40 PRINT "UNIT PRICE: $"; 

50 INPUT P 

60 PRINT P 

70 PRINT "SALES TAX RATE PERCENT: “; 
80 INPUT S 

90 PRINT 5 

100 PRINT "SHIPPING CHARGES: $"; 
110 INPUT H 

120 PRINT H 

130 LET S=S*.01 

140 LET C=O*P 

150 LET T=C*S 

160 LET F=C+T+H 

170 LET A=INT(100*C+.5)/100 

180 LET B=INT(100*T+.5)/100 

190 LET D=INT(100*F+.5)/100 

200 CLS 

210 PRINT “TOTAL PRICE = $":A 
220 PRINT "SALES TAX = $";B 

230 PRINT "SHIPPING CHARGES = $";H 
240 PRINT 

250 PRINT "INVOICE TOTAL = $":D 
260 IF INKEYS="" THEN GOTO 260 
270 CLS 

280 GOTO 10 


75 


Sample Run 


QUANTITY SOLD 
178 

UNIT PRICE = 5 

55.98 

SALES TAX RATE PERCENT = 
6 

SHIPPING CHARGES = § 

100 


TOTAL PRICE = $9964.44 
SALES TAX = 5597,87 
SHIPPING CHARGES = $100 


INVOICE TOTAL = $10662.31 
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Hourly Wages 


These useful lines compute total hours worked at 
regular pay and number of hours worked at time-and-a- 
half overtime. The computer then finds gross pay and 


rounds off to the nearest cent. 


The program knows that overtime starts after 40 
hours. lt makes payroll bookkeeping quick and simple. 


Program Listing 


10 LET T=Ø 

20 LET N= 

30 PRINT "HOURLY PAY RATE = $"; 
40 INPUT P 

50 PRINT P 

60 PRINT "NUMBER HOURS WORKED = "; 
70 INPUT H 

80 PRINT H 

90 IF H>40 THEN LET T=H-40 
100 IF H>40 THEN GOTO 140 
110 LET W=H*P 

120 PRINT "GROSS WAGES = $";W 
130 STOP 

140 LET W=(40*P)+(T*P*1.5) 
150 GOTO 120 


Sample Run 


HOURLY PAY RATE = $ 
5.75 

NUMBER HOURS WORKED = 
61 

GROSS WAGES = $411.125 
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Ad Campaign Profit 


The ad salesman is standing in your office pressing 
for your answer. Do you want to advertise or not? Adver 
tising costs plenty of money today. How can you make a 
quick decision about whether or not sales from advertis- 
ing would be worth the così? 

in this program, the computer asks you for informa. 
tion about the list price of the item you would sell through 
advertising. it asks for the manufacturing cost of that 
item; the cost of the advertising campaign; and the 
number of units sold. 

ii computes your gross sales and deducts the cost of 
manufacturing and advertising to show an estimate of 
profits to be expected. if you key in a zero in response to 
the number-sold question, the machine will inquire as to 
ihe amount of profit you would like to make and then tell 
you how many units you would have to sell to make such 
a profit. 

lf you would like to make your own changes to this 
program listing, you'll want to know that memory location 
B holds the list price of the item you are selling; C is the 
unit manufacturing cost of the item: D is the total adver- 
tising cost; A is the number of units sold of the item: E is 
the profit on the sales of the item; and Fis the profit you 
Say you want io make. 

Suppose you have an item you seli for $8.95 and it 
costs you $1.25 to produce it. An ad campaign costing 
$330 results in sales of 50 units. Your profit from the cam- 
paign would be $105. If you only wanted to know how 
many uniis you would have to sell io break even, enter 
zero in response lo ihe number-sold question and Si to 
the profit-wanted question. You'll discover you need to 
sei: just over 38 units to break even. 


Program Listing 

10 PRINT "ITEM LIST PRICE: '; 
20 INPUT B 

30 PRINT “$":B 

40 PRINT "MFG COST: "; 
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50 INPUT C 

60 PRINT *$*:c 

70 PRINT "AD COST: *; 

80 INPUT D 

90 PRINT 5 2 

100 PRINT "QUANTITY SOLD: "r 
110 INPUT A 

120 PRINT A 

130 IF A=B THEN GOTO 300 

200 LET E=A*B-A*C-D 

210 PRINT SE; PROFIT" 

228 GOTO 400 

300 PRINT “PROFIT WANTED: Š"; 
310 INPUT F 

320 PRINT F 

330 LET A=(F+D)/(B-C) 

340 PRINT “YOU MUST SELL "IA 
350 PRINT “FOR SFP; PROFIT" 
400 PRINT 

410 PRINT 

420 PRINT “TO DO ANOTHER, PRESS ANY KEY" 
430 IF INKEYS="" THEN GOTO 430 
440 CLS 

450 GOTO 10 


Sample Run 


ITEM LIST PRICE: $9.95 
MPG COST: $1.25 

AD COST: $330 
QUANTITY SOLD: 50 

$105 PROFIT 


TO DO ANOTHER, PRESS ANY KEY 


ITEM LIST PRICE: 53.35 
MFG COST: $1.25 

AD COST: $330 

QUANTITY SOLD: # 
PROFIT WANTED: $1 

YOU MUST SELL 38.045977 
FOR $1 PROFIT 
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Media Money Massage 


H you have used the Ad Campaign Profit program 
earlier in this book, you know how many bucks you can 
expeci to make from advertising. But, suppose two 
salesmen are standing in your office. One from your local 
newspaper and the other from a local television station. 
Both want your advertising dollar and you can't decide 
which is the best buy. Let your computer decide! 

This program compares the cost of advertising in two 
media and reports which is most favorable. First it com- 
putes cost-per-thousand. Then it highlights the least- 
expensive medium. 

Questions are asked by the computer display 
panel, The report compares any media 
newspaper, radio, television, magazines, shop- 
pers, etc. 

imagine your friendly salesmen are from the Daily 
Post and the Evening News. The ad in the Post costs 
$250. in the News it is $300. The Post's circulation is 
27,500 readers. The News has 32,500 readers. Which is 
the better buy? The Post is about 144 cheaper per thou- 
sand readers. 


Program Listing 


10 PRINT "FIRST MEDIUM: "; 
20 INPUT NS 

30 PRINT NS 

40 PRINT “AD COST: $'; 

50 INPUT A 

60 PRINT A 

70 PRINT "CIRCULATION: ”; 
80 INPUT C 

90 PRINT C 

100 LET M=1000*(A/C) 

110 PRINT "SECOND MEDIUM: *; 
120 INPUT P$ 

130 PRINT p$ 

140 PRINT "AD COST: $”; 

150 INPUT 0 


LŽ 


160 PRINT O 

170 PRINT "CIRCULATION: *; 

180 INPUT R 

190 PRINT R 

200 LET 5=1000*(0/R) 

210 PRINT 

220 PRINT 

230 PRINT Ns: CPM: $";H 

240 PRINT PS: CPM: 828 

250 IF S>M THEN PRINT As: IS LOWER" 
260 IF MOS THEN PRINT Ps: IS LOWER" 
270 IF M=S THEN PRINT “NO DIFFERENCE” 
300 PRINT 

310 PRINT 

320 PRINT "TO DO MORE, PRESS ANY KEY" 
330 IF INKEYS="" THEN GOTO 330 

340 CLS 

350 GOTO 10 


Sample Run 


FIRST MEDIUM: 
POST ENTER 


AD COST: 5 
250 ENTER 


CIRCULATION: 
27500 ENTER 


SECOND MEDIUM: 
NEWS ENTER 
AD COST: $ 
300 ENTER 
CIRCULATION: 
32500 ENTER 


POST CPM: $9.0909091 
NEWS CPM: $9.2307692 
POST 15 LOWER 


fo DO MORE, PRESS ANY KEY 
a1 


Salesman's Commission 


Representatives, salesmen, account representatives, 
sales representatives. Here's the no-sweat way to com- 
pute commissions to be pald to your sales corps. 

The computer will ask you for pertinent data and then 
display results inciuding the salesman's name, the pay 
period, his commission percentage rate, gross sales, and 
commission payable. 


Program Listing 


10 PRINT "SALESMAN COMMISSION” 
20 FOR L=1 TO 19 
30 PRINT "+", 
40 NEXT L 
50 PRINT 
100 PRINT "PERIOD ENDING DATE: '; 
110 INPUT D$ 
120 PRINT D$ 
200 PRINT "SALESMAN NAME: '; 
210 INPUT NS 
220 PRINT NS 
300 PRINT "COMMISSION PERCENT: '; 
310 INPUT P 
320 PRINT P 
330 LET R=P*.01 
400 PRINT "GROSS SALES: "; 
410 INPUT Q 
420 PRINT "S";Q 
430 LET T=K*Q 
500 PRINT "COMMISSION: $';T 
510 PRINT 
520 PRINT 
530 PRINT "FOR ANOTHER, PRESS ANY KEY" 
600 IF INKEY$ ="" THEN GOTO 600 
610 CLS 
620 GOTO 10 


= 


kal 


Sample Run 
SALESMAN COMMISSION 


* * * * * 2 22 2 2 2 2 2 2 2 2 2 2 203 


PERIOD ENDING DATE: 
12/31/84 ENTER 
SALESMAN NAME: 
SMITH ENTER 
COMMISSION PERCENT: 
15 ENTER 

GROSS SALES: $ 
16243.00 ENTER 


COMMISSION: $2436.45 


FOR ANOTHER, PRESS ANY KEY 
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Unit Price 


Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 
Rounded off, $.77. 

Unit price is total price divided by quantity. The quanti- 
ty can be expressed in weight, total numbers, etc. lt works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 
or units of Widgets. 

This program asks for the name of the item, quantity 
purchased and total price paid. It then displays quantity, 
name, total and unit price. 


Program Listing 


10 LET U=Ø 
20 PRINT "ITEM NAME IS "; 


50 PRINT "QUANTITY OF ITEMS = "; 

60 INPUT Q 

70 PRINT Q 

80 PRINT"TOTAL PRICE PAID FOR ITEMS 

= Ss": 

90 INPUT P 
100 PRINT P 
110 LET U=P/Q 
120 PRINT NS; UNIT PRICE = $":U 
200 PRINT 
210 PRINT 
220 PRINT “TO DO ANOTHER, PRESS ANY KEY" 
230 IF INKEYS="" THEN GOTO 230 
240 CLS 
250 GOTO 10 


Sample Run 


ITEM NAME IS 
WIDGETS 

QUANTITY OF ITEMS = 
999 


TOTAL PRICE PAID FOR ITEMS = $ 
14653 


BEEP WIDGETS UNIT PRICE = $14.667668 
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Executive Decision Maker 


This is handy for the busy executive who doesn't 


= Ed 


have time for decisions. 


Line 10 clears the screen. Line 20 generates a ran- 
dom number from zero to 98. Line 30 selects a yes 
answer if the random number is greater than 48. Other- 


wise, line 40 chooses a no answer. 


Program Listing 


10 CLS 


20 LET X=100*RND 

30 IF X»49 THEN PRINT "YES" 
40 IF X<49 THEN PRINT "NO" 
50 IF INKEYS="" THEN GOTO 50 
60 GOTO 10 


in this superior edition, a choice of eight replies is 


possible. 


Program Listing 


10 DIM 


D$(8,16) 


20 RAND 


100 LET 
110 LET 
120 LET 
130 LET 
140 LET 
150 LET 
160 LET 
179 LET 
200 LET 


DS(1)="YES" 

DS(2)="FIRE SOMEONE” 
DS(3)="PASS THE BUCK” 
DS(4)="MAYBE” 
DS(5)="REGRGANIZE" 
DS(6j="NO” 

DS(7)="SEE YOUR ANALXSTU 
DS(8)="SIT ON IT” 
R=INT(9*RND) 


210 IF RCI THEN GOTO 200 
300 PRINT DS(R) 
400 IF INKEYS="" THEN GOTO 400 


410 CLS 


420 GOTO 10 


Cash Receipts Comparer 


Business been up? Or, dropping off? How have your 
cash receipts looked over the last six months? 

This short, easy-lo-key-in piece of software accepis 
data from you about each month's receipis and then 
displays that data in an easy-to-read graph. The graph 
shows exactiy how one month's receipts compare with 
another. 

Lines 200 to 290 create the graph. 

By the way, so the graph won't overflow the screen, 
The graph has 22 available positions from left to 
right. You could make it dollars or millions or whalever 
you need. 

Anyway you cut it, it's a short, easy-to-type-in pro- 
gram which can give you a quick look at how marketing 
performance total receipts in one month relates to 
marketing performance in other months. 


Program Listing 


10 CLEAR 

20 DIM R(6) 
100 FOR M=1 TO 6 
110 PRINT "DATA FOR MONTH ";M;" 2" 
120 INPUT R(M) 
130 IF R(M)»22 THEN GOTO 120 
140 CLS 
150 NEXT M 
200 FOR M=1 TO 6 
210 PRINT “MONTH ";M; 
220 FOR L=Ø TO R(M)-1 
230 PRINT CHRS 128; 
240 NEXT L 
250 PRINT 
260 PRINT 
270 NEXT M 
280 PRINT 
290 PRINT TAB 10; "RECEIPTS" 
300 IF INKEYS="" THEN GOTO 300 
310 CLS 
320 GOTO 10 
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Mark Up 


Mr. Storekeeper, here's just what you have needed to 
compute mark ups. This program causes your TIMEX to 
find the retail price for which your percentage off would 
give the wholesale così. 

For insiance, if you got 40 percent off on an Hem and 
paid $60, how much was it priced at, at retail? The answer 
is $100. To put that another way, if retall price or sug- 
gested retail price is $100 and you got 40 percent off at 
wholesale, what is the wholesale price? The answer is 
$60. 

Try 340 wholesale which is 60 percent off. The 
answer is 3100 retall. Or try $10 wholesale at 90 percent 
off. Retail would be $100. Or $78 wholesale at 25 percent 
off gives $100 retall. 

Here's a toughie! Try $19.95 wholesale cost. Mark-up 
percentage is 40. The correct retall answer is $33.28. 


Program Listing 


10 LET Def 

20 LET RG 

30 PRINT “WHOLESALE COST = $': 

40 INPUT W 

50 PRINT W 

60 PRINT "MARK-UP PERCENTAGE = *; 
70 INPUT P 

80 PRINT P 

90 CLS 

100 LET D=1-.91*P 
110 LET R=W/D 

120 PRINT "RETAIL PRICE = $*:R 
130 PRINT 

140 PRINT 

150 PRINT "TO DO MORE, PRESS ANY KEY" 
160 IF INKEYS="" THEN GOTO 160 
176 CLS 

180 GOTO 16 
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Appendix 


Appendix A: 
Sinclair BASIC Words 


Here is a convenient list, with short explanations, of each 
of the BASIC language words as used by Sinclair in the 
ZX-E and in the TIMEXISinclair 1000 computer: 


EE 


Functions 


absolute value of a number 
arccosine 

logical AND 

arcsine 

arctangeni 

changes 0 to 255 number to a character 
number of firsi characier in a string 
cosine 

exponent 

scans keyboard 

integer part of number 

length of a string 

natural logarithm 

logical NOT 

logical OR 

look at one memorv-address location 
3.14159265 

random-number generator 

sign of å number 

sine 

square root 

change numerical value to string 
tangent 

call machine-language routine 
change string to number 
addition of number or strings 
subtraction 

multiplication 

division 

raising to a power 

equals 

greater than 

less than 

less than or equal to 

greater than or equal to 

not equal to 


Statements 


CLEAR clears variables 

CLS clears screen 

CONT continue after STOP 

COPY copy TV screen on printer 
DIM dimensions numerical array 
DIM $ dimensions string array 

FAST starts fast mode of TV display 
FOR first part of FOR/NEXT loop 


GOSUB jump to subroutine 
GOTO jump to a line 


IF first part of IF/THEN decision maker 
INPUT stops so data can be entered 

LET assigns a value to a variabie 

LIST displays program list on TV screen 

LLIST displays program list on printer 

LOAD transfers program from tape into computer 
LPRINT PRINT on printer 

NEW erases all of program memory and variables 
NEXT last part of FOR/NEXT loop 

PAUSE holds TV display on for brief delay 

PLOT blacks in a graphics-screen dot 

POKE writes in one memory-address location 
PRINT displays on TV screen 

RAND reseeds random-number generator 

REM statement ignored during run 

RETURN end of GOSUB, jump back to main routine 
RUN clears variables and starts program action 
SAVE records program from computer onto tape 
SCROLL rolls TV display up a line 

SLOW switches to siower display mode 

STEP optional part of FOR/NEXT loop 

STOP temporary halt in arun 

TAB PRINT at a certain place on TV display 
THEN last part of IFITHEN decision maker 

TO follows FOR in FOR/NEXT loop 


UNPLOT blanks out a graphics-screen dot 
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Appendix B: Error Messages 


This is a list of what Sinclair calls Report Codes and what 
you may refer to as error messages. These are notes to 
you from the computer about mistakes you may have 
made and about the status ofthe computer: 


Code Description 
Number! of Error 
Letter or Status 
Û successful completion 
1 you have a NEXT without a matching FOR 


you forgot to use LET or DIM or your FOR 
variable wrong 

3 a subscript is wrong 

4 there’s not enough memory space for what 
you want to do 

5 the TV screen is full 

5 you have computed too large a number 

7 you have a RETURN without a matching 

GOSUB 

INPUT can only be used in a program line 

CONT can't restart at STOP 

you are not using the function correctiy 

an integer is out of range 

you can't VAL that string 

you used BREAK to interrupt a run or you 

are using STOP in an INPUT line 

there is no such program name 


Gog c Co 


"n 
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books from soft Publishers 


For the TAS-80 PC-1, B-, Sharp PC-1211, PO- 1500: 
99 Tips & Tricks for the New Pocket Computers {PO-2/PC-1500) 


128 pages $795 ISBN 0-86668-019-5 
101 Pocket Computer Programming Tips & Tricks 

128 pages $7.96 ISBN 0-86668-004-7 
Pocket Computer Programming Made Easy 

128 pages $6.95 ISBN 0-86658-009-8 
Murder in The Mansion and Other Computer Adventures 

36 pages $6.95 iSBN-0-86668-501-4 
50 Programs in BASIC for Home, School & Office 

96 pages $0.95 ISBN 0-28888-502-2 
50 MORE Programs in BASIC for Home, School & Office 

36 pages $9.95 ISBN 0-86668-003-9 
Pocket-BASIC Coding Form programming worksheet tablets 

40-sheet pad 52.55 ISEN 0-56868-801-3 


For the TAS-80 Color Computer: 
101 Color Computer Programming Tips & Tricks 


128 pages $7.95 ISBN 0-86668-007-1 

55 Color Computer Programs for Home, School & Office 

128 pages $9.95 ISBN 0-86668-005-5 

55 MORE Color Computer Programs for Home, School & Office 

112 pages $9.95 ISBN 0-86668-008-% 

Color Computer Graphics 

128 pages $9.95 ISBN 0-86668-012-8 

The Color Computer Songbook 

98 pages 87.85 ISBN 0-85588-011-X 

My Buttons Are Blue and Other Love Poems 

56 pages $4.95 ISBN 0-85868-013-8 

Color Computer BASIC Coding Form program worksheet tablets 

40-sheet pad $2.95 ISBN 0-86668-502-1 

For the APPLE Computer: 

101 APPLE Computer Programming Tips 4 Tricks 

128 pages $8.95 ISBN 0-85888-013-2 

33 New APPLE Computer Programs for Home, School & Office 

96 pages $8.95 ISBN 0-86665-016-0 

APPLE Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-88668-303-X 


For the ATARI 400 and 800 computers: 


101 ATARI Computer Programming Tips & Tricks 
128 pages 58.85 ISBN G-86668-022-5 


31 New ATARI Computer Programs for Home, School & Office 
36 pages $6.95 ISBN 0-86666-018-7 


ATARI Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-806-4 
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books from ARCsoft Publishers 


For the Sinclair ZX-81 and TIMEX/Sinclair 1000 computers: 


101 TIMEX 1000 and Sinclair ZX-81 Programming Tips & Tricks 
128 pages $7.95 ISBN 0-86668-020-9 


37 TIMEX 1000 & Sinclair ZX-81 Programs for Home, School & Office 
96 pages $8.95 ISBN 0-86688-021-7 


TIMEX 1000 & Sinclair ZX-81 BASIC Coding Form program worksheets 
40-sheet pad $2.95 ISBN 0-86668-807-2 


For the electronics hobbyist: 
25 Quick-N-Easy Electronics Projects 


96 pages $4.95 ISBN 0-86668-023-3 
25 Electronics Projects for Beginners 

86 pages $4.95 ISBN 0-86668-017-9 
25 Easy-To-Build One-Night & Weekend Electronics Projects 

96 pages $4.95 ISBN 0-86668-010-1 


Computer program-writing worksheets: 
Each in tablet of 40 sheets with stiff backing 


Universal BASIC Coding Form $2.95 
IBM Personal Computer BASIC Coding Form $2.95 
ATARI Computer BASIC Coding Form $2.95 
Pocket Computer BASIC Coding Form $2.95 
APPLE Computer BASIC Goding Form $2.95 
Color Computer BASIC Coding Form $2.95 
TIMEX 1000/Sinclair ZX-81 BASIC Form $2.95 


ISBN: international Standard Book Number 


ARCsoft Publishers 


Post Office Box 132 
Woodsboro, Maryland 21798 


TIMEX/Sinclair Computer Book II 

— 37 TIMEX 1000/Sinclair ZX-81 

Programs for Home, School 8: Office 
by Se Page 


and net, even | 
All o 
this one | 


Ali of 


typing in | 
These are ideal 


„ Casio, Panasonic, H 
ners. 


ISBN 0-86668-021-7 


